Secrets of Stargate/STARGATE.iso/mac/STARGATE (5MB Macintosh)/STARGATE (5MB Macintosh).DXR/00029.ls

Text File | 1994-10-19 | 653 b | 25 lines

on mouseUp
  set theLine to the mouseLine
  set sN to the clickOn
  if the timer < 20 then
    exit
  end if
  if line theLine of field the castNum of sprite sN = EMPTY then
    exit
  end if
  spinCursor()
  set the visible of sprite 33 to 0
  set fN to the castNum of sprite sN
  set tH to the textHeight of field fN
  set vMod to (theLine - 1) * tH
  set nV to integer(tH / 2) + the top of sprite sN + vMod - 1
  set nH to the locH of sprite sN - 10
  set the locV of sprite 33 to nV
  set the locH of sprite 33 to nH
  set the visible of sprite 33 to 1
  updateStage()
  wait(10)
  set the visible of sprite 33 to 0
  LinkStageFromLine(theLine)
end